`acr` <-
function(cl,v,tau,...)1/(1-exp(-ke(cl,v)*tau))

